put the short date into last line of card field "Control"
set name of this card to "UserCard"
push card
go to second card
domenu "Copy Card"
pop card
domenu "Paste Card"
put "" into field hidehelp1
put it into first line of card field "Control"
put the short date into last line of card field "Control"
set name of this card to "UserCard"
go to first card
put 0 into it
repeat the number of cards/2
add 1 to it
put it into field "Index Number"
go to next card
put it & "B" into field "Index Number"
go to next card
end repeat
set lockScreen to false
find pictitle
end mouseUp
-- part 12 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=12 top=111 right=145 bottom=47
-- title width / last selected line: 0
-- icon id / first selected line: 31975 / 31975
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Menus
----- HyperTalk script -----
on mouseUp
global temp, menu1
if visible of bkgnd field "toggle" is false then put "true" into menu1
if visible of bkgnd field "toggle" is true then put "false" into menu1
if temp is "gone" then show menuBar
if temp is "gone" then show bkgnd field "toggle"
if temp is "gone" then put "here" into temp
if menu1 is "true" then exit mouseUp
hide menuBar
hide bkgnd field toggle
put "gone" into temp
end mouseUp
-- part 15 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=55 top=115 right=141 bottom=82
-- title width / last selected line: 0
-- icon id / first selected line: 1014 / 1014
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----
on mouseUp
go to prev card
end mouseUp
-- part 16 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=94 top=115 right=141 bottom=121
-- title width / last selected line: 0
-- icon id / first selected line: 1013 / 1013
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
go to next card
end mouseUp
-- part 17 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=58 top=78 right=104 bottom=78
-- title width / last selected line: 65535
-- icon id / first selected line: -15989 / 49547
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Delete
----- HyperTalk script -----
on mouseUp
set lockScreen to true
get the name of this card
if it contains "Master" then answer "You can't delete the Master cards." with "OK"
if it is "OK" then exit mouseup
answer "Are you sure?" with "No Way!" or "Do it"
if it is "No Way!" then exit mouseUp
get first line of card field "Control"
domenu "delete card"
find it
domenu "delete card"
go to first card
put 0 into it
repeat the number of cards/2
add 1 to it
put it into field "Index Number"
go to next card
put it & "B" into field "Index Number"
go to next card
end repeat
set lockScreen to false
end mouseUp
-- part 20 (field)
-- low flags: 81
-- high flags: 0001
-- rect: left=203 top=24 right=65 bottom=408
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: hidetitle
-- part 23 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=90 top=79 right=105 bottom=127
-- title width / last selected line: 0
-- icon id / first selected line: 17794 / 17794
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Print
----- HyperTalk script -----
on mouseUp
play boing
answer "Make your choice..." with "Forget It" or "Chooser" or "Print"
if it is "Forget It" then exit mouseUp
if It is "Chooser" then domenu "Chooser"
if it is "Chooser" then exit mouseUp
get first word of second line of card field control
if it is not "Upper" then answer "You must print from the Upper half" with "OK"
if it is "OK" then exit mouseUp
show msg
put "Don't forget to set the dialog box for:"
wait 3 seconds
put quote&"Print full size cards,""e&" and ""e& "No space between cards.""e
wait 3 seconds
hide bkgnd field "index number"
hide card button help
hide card button home
hide card button delete
hide card button print
hide card button new
hide card button prev
hide card button next
hide card button menus
hide card field control
open printing with dialog
push card
print card
go to next card
hide card button help
hide card button home
hide card button delete
hide card button print
hide card button new
hide card button prev
hide card button next
hide card button menus
hide card field control
print card
pop card
close printing
show bkgnd field "Index Number"
put "All done, Boss."
wait 3 seconds
hide msg
end mouseUp
-- part 27 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=90 top=144 right=179 bottom=125
-- title width / last selected line: 0
-- icon id / first selected line: 1020 / 1020
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Help
----- HyperTalk script -----
on mouseUp
hide bkgnd field hidehelp1
hide bkgnd field hidehelp2
wait until the mouse is down
answer "Would you like to print the help?" with "Chooser" or "Yes" or "No"
if it is "Chooser" then domenu "Chooser"
if it is "Yes" then print card
show bkgnd field hidehelp1
show bkgnd field hidehelp2
end mouseUp
-- part contents for card part 4
----- text -----
F.P.P. version 1.0
Upper Half
9/20/87
-- part contents for background part 6
----- text -----
1
-- part contents for background part 7
----- text -----
Full-Page Paint is a stack that lets you create 8 1/2 by 11 images in two halves (on two cards). The two halves will be combined during printout to form one image.
Press the Tab key to show/hide the F.P.P. control panel. Click the question mark (?) in the control panel to see more help. Press Option-Tab to bring up the Paint Tools palette.
Commercial sale of this stack is prohibited. All rights reserved.
